Imports System
Module qs

    Sub Main()
        Dim a,b As Integer
        Dim str As String

        ' 通过 : 分割赋值语句
        a=1 : b=2
        ' 通过 _ 连接长语句
        ' str = "hello " & "world"
        str = "hello " & _
            "world"
        Console.WriteLine("a={0},b={1},str={2}",a,b,str)
        Console.ReadKey()
    End Sub 
    ' a=1,b=2,str=hello world

End Module
